home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 15
/
64er_Magazin_Sonderheft_15_19xx_Markt__Technik_de_Side_B.d64
/
beispiel 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
42 lines
100 iffl=0thenfl=1:load"directory-load",8,1
110 print"[147] ";
120 print" disk-menue ";
130 print" [154]written by udo woehler ";
140 print" ";
150 print"bitte warten"
160 poke53281,6:poke53280,14
170 dima$(143)
180 sys49152,,zh%,a$,,,,,"p"
190 zh=zh%-1:ifzh=-1thenprint"[147]";:end
200 an=0
210 e=an+18:a=an
220 ife>zhthene=zh
230 bu$=chr$(e-a+65)
240 print"[147] disk-menue"
250 print" [154]written by udo woehler"
260 print" zum starten buchstabe (a-";bu$;") druecken"
270 ifzh>19thenprint"<cr> weitere files";
280 print"[154]"
290 fort=atoe:print:print" ";chr$(65+t-a);") ";a$(t);:next
300 gets$:ifs$=""then300
310 ifs$=chr$(13)thenan=an+19:ifan>zhthenan=0
320 ifs$=chr$(13)then210
330 ifs$<"a"ands$>"s"then300
340 ifan+asc(s$)-65>zhthen300
350 an=an+asc(s$)-65
360 print"[147]loading ";a$(an)
370 na$=""
380 fort=16to1step-1:ifmid$(a$(an),t,1)<>" "thenna$=left$(a$(an),t)+"*":t=0
390 next
400 open1,8,2,na$+",p,r"
410 get#1,a$:get#1,b$:close1:ad=asc(b$+chr$(0))*256+asc(a$+chr$(0))
420 po=0:ifad<>2049andad<>2048thenpo=1
430 if ad<828 thenpo=2
440 print"load"chr$(34);na$;chr$(34)",8,1"
450 ifpo=2thenprint"":poke198,1:poke631,13:end
460 ifpo=1thenprint"new":print"sys"ad""
470 ifpo=1thenpoke198,4:poke631,13:poke632,13:poke633,154:poke634,13:end
480 print"run"
490 poke198,3:poke631,13:poke632,154:poke633,13
500 end